home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
segue.exe
/
SUPVRLST.PRG
< prev
next >
Wrap
Text File
|
1991-05-20
|
2KB
|
79 lines
*.............................................................................
* Program Name: SUPVRLST.PRG Copyright: HRF Associates, Inc.
* Date Created: 07/24/91 Language: Clipper
* Time Created: 15:26:07 Author: Bob Fogle (203) 866-4324
*.............................................................................
clear
setcolor("w+/n")
? " S E G U E A P I S U P P L E M E N T A L F U N C T I O N D E M O"
@ 23,0 SAY ;
"(c) Copyright 1991, HRF ASSOCIATES, INC., TO ORDER API, CALL (800) 966-SEGUE"
do suplst
return
PROCEDURE SUPLST
LOCAL mOBTYP, mUSRJNM, mUSRNM[0], mOBTP[0], rtn
PRIVATE mDEMO :="SUPLST_(), List Users/Objects w/Supervisor Security"
OK=.T.
rtn=0
xx=3
@ xx, 0 say "SEGUE SS FUNCTION = "+mDEMO
xx=xx+2
@ xx, 0
mOBTYP = 0
@ xx, 0 say "Please enter Object type: " get mOBTYP
read
xx=xx+1
mUSRJNM=space(46)
@ xx, 0 say "Please enter Object Search String (wildcard OK): " get mUSRJNM
read
xx=xx+1
rtn = SUPLST_(mOBTYP,mUSRJNM,@mUSRNM,@mOBTP)
if rtn<0
? "Error: ", rtn
wait
OK=.F.
endi
if .not. OK
return
endi
@ 7,0 clear to 22,79
xx=7
yy=0
for i = 1 to len(mUSRNM)
if xx=7
@ xx, yy say "CNT USER OR OBJECT NAME TYPE"
@ xx+1,yy say "═══ ════════════════════════ ═════"
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
if mOBTP[i]=1
@ xx, yy+29 say " USER"
elseif mOBTP[i]=2
@ xx, yy+29 say "GROUP"
else
@ xx, yy+30 say trans(mOBTP[i],"###")
endi
xx=xx+1
if xx=22
xx=7
if yy=0
yy=yy+43
else
yy=0
@ 22,0
@ 22,0 say "Press any key to continue..."
inkey(0)
@ 7,0 clear to 22,79
endi
endi
next
@ 22,0
@ 22,0 say "Press any key to return..."
inkey(0)
return